home *** CD-ROM | disk | FTP | other *** search
/ BBS Toolkit / BBS Toolkit.iso / rbbs_pc / dc174v11.zip / RSB2DROP.MRG < prev    next >
Text File  |  1992-10-03  |  7KB  |  178 lines
  1. * ------------[ BLED merge (c) Ken Goosens ]-------------
  2. * Merge this against RBBSSUB2.BAS to produce RBBSSUB2.NEW
  3. * RBBSSUB2.BAS:  Date 6-20-1992  Size 140946 bytes
  4. *          DROP174 (c) 1992 by Richie Molinelli
  5. * ------------[ Created 10-03-1992 22:05:10 ]------------
  6. * REPLACING old line(s) by new
  7. 109 '  $SUBTITLE: 'VarInit - subroutine to initialize system variables'
  8. '  $PAGE
  9. '
  10. '  NAME    --  VarInit
  11. '
  12. '  INPUTS  --  PARAMETER           MEANING
  13. '              NONE
  14. '
  15. '  OUTPUTS --  NONE
  16. '
  17. '  PURPOSE --  To initialize system variable
  18. '
  19.       SUB VarInit STATIC
  20.     DEF SEG                            ' Point to BASIC
  21.     WIDTH 80                           ' Set Screen Width
  22.     KEY OFF                            ' Line 25 turned off
  23. ' ********************* Variable Definitions *******************************
  24.     ZMsgDim = 99
  25.     WasMM = 999
  26.     WasBX = 75
  27.     WasJ = 60
  28.     REDIM ZOptSec(WasJ)
  29.     DIM ZWorkAra$(WasJ)
  30.     DIM ZGSRAra$(WasJ)
  31.     DIM ZCategoryName$(WasBX),ZCategoryCode$(WasBX),ZCategoryDesc$(WasBX)
  32.     DIM ZOutTxt$(ZMsgDim)                      ' Message line table
  33.     DIM ZUserIn$(ZMsgDim)                      ' Message line table
  34.     DIM ZMsgPtr(WasMM,2)                       ' Message pointers
  35.     ZAcknowledge$ = CHR$(6)
  36.     ZAckChar$ = "C" + _
  37.             ZAcknowledge$
  38.     ZActiveMenu$ = "B"
  39.     ZActiveMessage$ = CHR$(225)
  40.     ZBackSpace$ = CHR$(8) + _
  41.                  CHR$(32) + _
  42.                  CHR$(8)
  43.     ZBackArrow$ = CHR$(29) + _
  44.                   CHR$(32) + _
  45.                   CHR$(29)
  46.     ZBaudRates$ = "      300  450 1200 2400 4800 7200 96001200014400168001920038400"
  47.     ZBellRinger$ = CHR$(7)
  48.     ZBulletinMenu$ = ""
  49.     ZWasCL = 24
  50.     ZCancel$ = CHR$(24)
  51.     ZColorReset$ = CHR$(27) + _
  52.                    "[00;37;40m"
  53.     ZConfigFileName$ = "RBBS-PC.DEF"
  54.     ZCarriageReturn$ = CHR$(13)
  55.     ZDeletedMsg$ = CHR$(226)
  56.     ZEndTransmission$ = CHR$(4)
  57.     ZEscape$ = CHR$(27)
  58.     ZExpectActiveModem = 0
  59.     ZFalse = 0
  60.     ZF1Key = 59
  61.     ZF10Key = 68
  62.     ZConfName$ = "MAIN"
  63.     CALL SetHiLite (ZTrue)
  64.     ZHomeConf$ = ""
  65.     ZInConfMenu = -1
  66.     ZLastCommand$ = "M "
  67.     ZLimitMinsPerSession = 0
  68.     ZLineFeed$ = CHR$(10)
  69.     ZLineFeeds = NOT ZFalse
  70.     ZLineEditChk$ = CHR$(9) + _
  71.                     ZLineFeed$ + _
  72.                     CHR$(11) + _
  73.                     CHR$(12) + _
  74.                     CHR$(127) + _
  75.                     CHR$(8) + _
  76.                     ZBellRinger$ + _
  77.                     CHR$(26) + _
  78.                     CHR$(227)
  79.     ZLineMes$ = SPACE$(78)          ' fixed length string workspace
  80.     ZLockStatus$ = "UM UU UB UD"
  81.     ZMenuIndex = 2
  82.     ZNAK$ = CHR$(21)
  83.     ZNoAdvance = ZFalse
  84.     ZPageLength = 23
  85.     ZParseOff = ZFalse
  86.     ZPressEnter$ = " (Press [ENTER] to quit)"
  87.     ZPressEnterExpert$ = " ([ENTER] quits)"
  88.     ZPressEnterNovice$ = ZPressEnter$
  89.     ZPrivateDoor = ZFalse
  90.     ZRightMargin = 72
  91.     ZReturnLineFeed$ = ZCarriageReturn$ + _
  92.                         ZLineFeed$
  93.     ZSmartTable$ = "CS PB NS FN LN SL DT TM TR TE TL RP RR CT " + _
  94.                    "C1 C2 C3 C4 C0 DD BD DB UB DL UL FI VY VN " + _
  95. * ------[ first line different ]------
  96.                    "TY TN BN ND FS LS CN CD"                         ' DROP174
  97.     ZStartOfHeader$ = CHR$(1)
  98.     ZTimeLoggedOn$ = SPACE$(8)
  99.     ZTrue = NOT ZFalse
  100.     ZUpInc = -1
  101.     ZXOff$ = CHR$(19)
  102.     ZXOn$ = CHR$(17)
  103.     ZInterrupOn$ = CHR$(11) + ZCancel$ + ZXOff$ + ZXOn$ + ZCarriageReturn$
  104.     ZOptionEnd$ = ZReturnLineFeed$ + " ,("
  105.     ZCrLf$ = ZCarriageReturn$ + ZLineFeed$
  106.     ZVersionID$ = "17.4"
  107.     ZWasLG$(1) = "Registration Check Failed"
  108.     ZWasLG$(2) = "Sysop name attempted"
  109.     ZWasLG$(3) = "Locked out attempt"
  110.     ZWasLG$(4) = "Password Attempt Failed"
  111.     ZWasLG$(5) = "Auto Lockout done"
  112.     ZWasLG$(6) = "Name in use on another Node!"
  113.     ZWasLG$(7) = ""
  114.     ZWasLG$(8) = "Locked reason read!"
  115.     ZWasLG$(9) = "Expired Registration"
  116.     CALL GetCommand (ZDebug,ZNetTime$,ZNetBaud$,ZNetReliable$)
  117.     ZSubParm = 1
  118.     CALL ReadDef (ZConfigFileName$)
  119.     REDIM ZWorkAra$(ZMaxWorkVar)
  120.     REDIM ZGSRAra$(ZMaxWorkVar)
  121.     ZUseTPut = (ZUpperCase OR ZXOnXOff)
  122.     ZOrigCallers$ = ZCallersFile$
  123.     ZOrigMsgFile$ = ZMainMsgFile$
  124.     ZOrigUserFile$ = ZMainUserFile$
  125.     ZOrigSysopFN$ = ZSysopFirstName$
  126.     ZOrigSysopLN$ = ZSysopLastName$
  127.     ZPromptBell = ZPromptBellDef
  128.     ZSecretName$ = ZSysopPswd1$ + " " + ZSysopPswd2$
  129.     ZDropChange = ZFalse                                             ' DROP174
  130.     END SUB
  131. '
  132. * REPLACING old line(s) by new
  133. 10602 ZSubParm = 6
  134.       ZWasY$ = ZLastDateTimeOn$
  135.       CALL FileLock
  136.       CALL OpenUser (ZHighestUserRecord)
  137.       FIELD 5,31 AS ZUserName$, _
  138.               15 AS ZPswd$, _
  139.                2 AS ZSecLevel$, _
  140.               14 AS ZUserOption$,  _
  141.               24 AS ZCityState$, _
  142. * ------[ first line different ]------
  143.                1 AS MachineType$, _                                  ' DROP174
  144.                1 AS ZDropTimes$, _                                   ' DROP174
  145.                1 AS ZBankTime$,_
  146.                4 AS ZTodayDl$, _
  147.                4 AS ZTodayBytes$, _
  148.                4 AS ZDlBytes$, _
  149.                4 AS ZULBytes$, _
  150.               14 AS ZLastDateTimeOn$, _
  151.                3 AS ZListNewDate$, _
  152.                2 AS ZUserDnlds$, _
  153.                2 AS ZUserUplds$, _
  154.                2 AS ZElapsedTime$
  155. * REPLACING old line(s) by new
  156. 10604 GET 5,ZUserFileIndex
  157.       IF ZActiveUserFile$ = ZOrigUserFile$ THEN _
  158.          ZUplds = ZGlobalUplds : _
  159.          ZDnlds = ZGlobalDnlds : _
  160.          ZDLToday! = ZGlobalDLToday! : _
  161.          ZBytesToday! = ZGlobalBytesToday! : _
  162.          ZDLBytes! = ZGlobalDLBytes! : _
  163.          ZULBytes! = ZGlobalULBytes! : _
  164. * ------[ first line different ]------
  165.          ZDropTimes = ZGlobalDropTimes : _                           ' DROP174
  166.          ZBankTime = ZGlobalBankTime _
  167.       ELSE ZBankTime = 0
  168.       LSET ZBankTime$ = CHR$(ZBankTime)
  169.       LSET ZDropTimes$ = CHR$(ZDropTimes)                            ' DROP174
  170.       LSET ZLastDateTimeOn$ = ZWasY$
  171.       LSET ZCityState$ = ZWasCI$
  172.       IF UpdateDefaults THEN _
  173.          CALL DefaultU
  174.       IF ZListDir THEN _
  175.          LSET ZListNewDate$ = CHR$(VAL(MID$(ZCurDate$,7,2))) + _
  176.                               CHR$(VAL(MID$(ZCurDate$,1,2))) + _
  177.                               CHR$(VAL(MID$(ZCurDate$,4,2)))
  178.